home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
HDK100L.ZIP
/
RTFLIB.HDF
< prev
next >
Wrap
Text File
|
1993-12-09
|
13KB
|
302 lines
;******************************************************************************
; Ver 1.0, Last Update Dec 08, 1993 *
; rtfLIB *
; *
; This library adds functionality to HLPDK 10.0+, and adds special functions *
; to RTF based targets : winHelp, MMViewer, RTF Word Processor target. *
; *
; The following added functionality is added : *
; *
; Text Attributes for internal pieces of text. (bold, undeline, italic) *
; Special Links : Graphics and Normal Non-Hilighted links. *
; Complete WINHELP Macro API support for WINHELP and MM Viewer targets. *
; Multimedia - MCI string interface, Video, CDAudio, and generic FUN! *
; *
;******************************************************************************
.ifdef rtfbased
;******************************************************************************
; Text Attributes *
; *
; boldText - Display text in bold, e.g. - ~Text~boldText~ - Text will be in *
; bold *
; italicText - Display text in italic *
; underlineText - displayText in underline *
; boldItalicText - display text in bold italic *
; *
; fontText(fontNum) - Display Text in font# from font pallete *
; e.g. ~This is in font 3~fontText(3)~ *
;******************************************************************************
.userlink boldText '{\b %t}'
.userlink italicText '{\i %t}'
.userlink underlineText '{\ul %t}'
.userlink boldItalicText '\b\i %t}'
.userlink fontText '{\f%1 %t}'
.ifndef document
;******************************************************************************
; Links *
; *
; The following set of userlink templates support special link capabilities : *
; *
; NormalTextLink(linkTarget) - Display the link text in normal color, and NOT *
; with the underline green format *
; NormalTextPopup(linkTarget) - Same as above - but for popups. *
; *
; GraphicLink(graphicObject LinkTarget) - Display a graphic, that conects to *
; a linkTarget, the graphic object *
; should have been decalred in a *
; .GRAPHIC statement. *
; graphicPopup(graphicObject linkTarget) - Same as above, coonnect to a popup *
;******************************************************************************
.userlink NormalTextLink '{\uldb %t}{\v %%%1)'
.userlink NormalTextPopup '{\ul %t}{\v %%%1}'
.userlink graphicLink '{\uldb \{bmc %g1\}}{\v %2}'
.userlink graphicPopup '{\ul \{bmc %g1\}}{\v %2}'
.else
.userlink NormalTextLink '%t'
.userlink NormalTextPopup '%t'
.userlink graphicLink '%t'
.userlink graphicPopup '%t'
.endif
;******************************************************************************
; Macros *
; *
; The complete windows macro facility is supported here, with a set of *
; !XXX macros defined as user links for general use in links, and *
; $XXX macros as substitution macros only. (Not for topictext links) *
;******************************************************************************
.ifndef document
.userlink !about '{\uldb %t}{\v !About()}'
.userlink $about 'About()'
.userlink $addAccelarator 'AddAccelerator(%1,%2,"%3")'
.userlink !addAccelarator '{\uldb %t}{\v !AddAccelerator(%1,%2,"%3")}'
.userlink $annotate 'Annotate()'
.userlink !annotate '{\uldb %t}{\v !Annotate()}'
.userlink $appendItem 'AppendItem("%1","%2","%3","%4")'
.userlink !appendItem '{\uldb %t}{\v !AppendItem("%1","%2","%3","%4")}'
.userlink $back 'Back()'
.userlink !back '{\uldb %t}{\v !Back()}'
.userlink $bookmarkDefine 'BookmarkDefine()'
.userlink !bookmarkDefine '{\uldb %t}{\v !BookmarkDefine()}'
.userlink $bookmarkMore 'BookmarkMore()'
.userlink !bookmarkMore '{\uldb %t}{\v !BookmarkMore()}'
.userlink $browseButtons 'BrowseButtons()'
.userlink !browseButtons '{\uldb %t}{\v !BrowseButtons()}'
.userlink $changeButtonBinding 'ChangeButtonBinding("%1","%2")'
.userlink !changeButtonBinding '{\uldb %t}{\v !ChangeButtonBinding("%1","%2")}'
.userlink $changeItemBinding 'ChangeItemBinding("1","2")'
.userlink !changeItemBinding '{\uldb %t}{\v !ChangeItemBinding("1","2")}'
.userlink $checkItem 'CheckItem("%1")'
.userlink !checkItem '{\uldb %t}{\v !CheckItem("%1")}'
.userlink $closeWindow 'CloseWindow("%1")'
.userlink !closeWindow '{\uldb %t}{\v !CloseWindow("%1")}'
.userlink $contents 'Contents()'
.userlink !contents '{\uldb %t}{\v !Contents()}'
.userlink $copyDialog 'CopyDialog()'
.userlink !copyDialog '{\uldb %t}{\v !CopyDialog()}'
.userlink $copyTopic 'CopyTopic()'
.userlink !copyTopic '{\uldb %t}{\v !CopyTopic()}'
.userlink $createButton 'CreateButton("%1","%2","%3")'
.userlink !createButton '{\uldb %t}{\v !CreateButton("%1","%2","%3")}'
.userlink $deleteItem 'DeleteItem("%1")'
.userlink !deleteItem '{\uldb %t}{\v !DeleteItem("%1")}'
.userlink $deleteMark 'DeleteMark("%1")'
.userlink !deleteMark '{\uldb %t}{\v !DeleteMark("%1")}'
.userlink $destroyButton 'DestroyButton("%1")'
.userlink !destroyButton '{\uldb %t}{\v !DestroyButton("%1")}'
.userlink $disableButton 'DisableButton("%1")'
.userlink !disableButton '{\uldb %t}{\v !DisableButton("%1")}'
.userlink $disableItem 'DisableItem("%1")'
.userlink !disableItem '{\uldb %t}{\v !DisableItem("%1")}'
.userlink $enableItem 'EnableItem("%1")'
.userlink !enableItem '{\uldb %t}{\v !EnableItem("%1")}'
.userlink $enableButton 'EnableButton("%1")'
.userlink !enableButton '{\uldb %t}{\v !EnableButton("%1")}'
.userlink $execProgram 'ExecProgram("%1", %2)'
.userlink $execProgram '!ExecProgram("%1", %{\uldb %t}{\v 2)}'
.userlink $exit 'Exit()'
.userlink !exit '{\uldb %t}{\v !Exit()}'
.userlink $fileOpen 'FileOpen()'
.userlink !fileOpen '{\uldb %t}{\v !FileOpen()}'
.userlink $focusWindow 'FocusWindow("%1")'
.userlink !focusWindow '{\uldb %t}{\v !FocusWindow("%1")}'
.userlink $gotoMark 'GoToMark("%1")'
.userlink !gotoMark '{\uldb %t}{\v !GoToMark("%1")}'
.userlin $helpOn 'HelpOn()'
.userlin !helpOn '{\uldb %t}{\v !HelpOn()}'
.userlink $helpOnTop 'HelpOnTop()'
.userlink !helpOnTop '{\uldb %t}{\v !HelpOnTop()}'
.userlink $history 'History()'
.userlink !history '{\uldb %t}{\v !History()}'
.userlink $ifThen 'IfThen(IsMark("%1"),"%2")'
.userlink !ifThen '{\uldb %t}{\v !IfThen(IsMark("%1"),"%2")}'
.userlink $ifThenElse 'IfThenElse(IsMark("%1"),"%2","%3")'
.userlink !ifThenElse '{\uldb %t}{\v !IfThenElse(IsMark("%1"),"%2","%3")}'
.userlink $insertItem 'InsertItem("%1","%2","%3","%4",%5)'
.userlink !insertItem '{\uldb %t}{\v !InsertItem("%1","%2","%3","%4",%5)}'
.userlink $insertMenu 'InsertMenu("%1","%2",%3)'
.userlink !insertMenu '{\uldb %t}{\v